Наберите формулу, не используя специальные средства
текстового процессора:
a^2 + b2= c^2

var

  i: integer;

  a: array[1..16]of integer;

begin

  for i: =1 to 16 do

begin

  a[i]: =random(40)-20;

  if a[i] mod 3=0 then write(i,' ');

end;

writeln;

end.

такая

естественная

красота

самая

теплая

: dd что есть, то есть

program obmen;

var a,b,c,x,y: integer;

begin

a: =x;

b: =a;

c: =b;

x: =c;

writeln (a,b,c)

end.