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