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.