program ideone;
begin
	(* your code goes here *)
end.

cHJvZ3JhbSBpZGVvbmU7CmJlZ2luCgkoKiB5b3VyIGNvZGUgZ29lcyBoZXJlICopCmVuZC4=

0J/RgNC+0LPRgNCw0LzQvNCwICZsYXF1bzvQnNCw0YHRgdC40LImcmFxdW87OwpWYXIgQSwgQiwgQzog0LzQsNGB0YHQuNCyIFsxLi4xMF0g0YbQtdC70YvRhSDRh9C40YHQtdC7OwpJOiDRhtC10LvQvtC1INGH0LjRgdC70L47CkJlZ2luCkZvciBJOj0xIHRvIDEwIGRvIHJlYWQgQVtpXTsKRm9yIEk6PTEgdG8gMTAgZG8gQltpXTo9cmFuZG9tKDE2KS0xMCA7CkZvciBJOj0xIHRvIDEwIGRvIENbaV06PShBKkEpLTIqQjsKRW5kOwpGb3IgSTo9MSB0byAxMCBkbyB3cml0ZSAoJmxzcXVvO0FbaV09JmxzcXVvOywgJmxzcXVvOyAsQSk7CldyaXRlbG4gCkZvciBJOj0xIHRvIDEwIGRvIHdyaXRlICgmbHNxdW87QltpXT0mbHNxdW87LCAmbHNxdW87ICxCKTsKV3JpdGVsbgpGb3IgSTo9MSB0byAxMCBkbyB3cml0ZSAoJmxzcXVvO0NbaV09JmxzcXVvOywgJmxzcXVvOyAsQyk7CkVuZC4=

Программа «Массив»;
Var A, B, C: массив [1..10] целых чисел;
I: целое число;
Begin
For I:=1 to 10 do read A[i];
For I:=1 to 10 do B[i]:=random(16)-10 ;
For I:=1 to 10 do C[i]:=(A*A)-2*B;
End;
For I:=1 to 10 do write (‘A[i]=‘, ‘ ,A);
Writeln 
For I:=1 to 10 do write (‘B[i]=‘, ‘ ,B);
Writeln
For I:=1 to 10 do write (‘C[i]=‘, ‘ ,C);
End.