Дана сторона квадрата a. Найти его площадь S = a2. Входные данные: ввести одно целое...

Question

Дана сторона квадрата a. Найти его площадь S = a2.
Входные данные: ввести одно целое число а (1<=a<=100).<br>Выходные данные: вывести одно число - площадь квадрата.
помогите решить задачу хотя бы блоком схемой,с условием if и for.учитель зверь!!

Answer 1

uses crt;
var a,s:integer;
begin
writeln(' Write side of the square: ');
readln(a);
if ((a>=1) and (a<=100)) then<br>s:=sqr(a);
writeln(s);
end.