var a:integer; //Присваиваем переменой A целоцисленный тип Integer 1,2,3,4,5...и.т.д begin //Начало блока Write('Введите сторону А: ');//Выводим сообщение на экран Read(a); //Читаем значение введеное с клавиатуры и записываем его в переменную a:=a*a; //Выполняем выражение и записываем новое значение в переменную {Можно использовать Sqr(a) -- Данная функция возводит число в квадрат} Write('Площадь равна: ', a); //Выводим на экран значение переменной end. //конец блока
