628 Х10 Х2 ;

4В16 Х10 Х8 ;

100001112 Х10 Х16 ;

278 Х10 Х16 ;​

700 иероглифов было в древнем письме

р треугольника= сложить все стороны

var n, i, k, a: integer;

begin readln(n); k : = 0; for i : = 1 to n do begin readln(a); if trunc(sqrt(a)) * trunc(sqrt(a)) = a then k : = k + 1; end; writeln(k); end.

var alpha: real;

begin

  read(alpha);

  if alpha > 90 then write("tupougolnyj");

  if alpha = 90 then write("prjamougolnyj");

  if alpha < 90 then write("ostrougolnyj");

end.