Найди соответствия между скриптами и блоками и соедини их линиями ​

ответ:

1-1 2 - 7 3-1 4-4 6-6 7-8 8-3.

объяснение:

как то так)

паскаль, одномерный массив

var a: array [1..6] of integer; i, max: integer;

begin

for i: =1 to 6 do read(a[i]);

max: =a[1];

for i: =1 to 6 do

if a[i]> max then max: =a[i];

writeln(max); readln; end.

var a,res: integer;

begin

writeln('введите число');

readln(a);

res: =sqr(a);

writeln('квадрат числа,'a', равен,'res',');

readln;

end.