ПАСКАЛЬ, ИНФОРМАТИКА, 8 класс

Question

Составьте программу, которая возводит в квадрат введенное целое число, если оно отрицательное, и выводит на экран результат. 
 
Пожалуйста, решение! 
Заранее, спасибо!!!

Ольга Медведева · Accepted Answer

А сама пробовала? 
Фрагмент программы может быть таким: 
 if a<0 then write (' квадрат = ', a*a); 
Заголовок, раздел описаний и команды ввода напиши сама.