Запустите Pascal. Введите программу:

program pr_1;
var
x, y,sum, umn: integer;
begin
write ('x=');
readln (x);
write ('y=');
readln (y);
sum:=x+y;
umn:=x*y;
writeln ('sum=',sum);
writeln ('umn=',umn);
readln;
end.

Х У
32 34
sum-?
umn-?

Что нужно сделать?

Запусти Pascal. Введи программу.

program pr_1;

var

x,y,sum, umn: integer;

begin

write ('x=');

readln (x);

write ('y=');

readln (y);

sum:=x+y;

umn:=x*y;

writeln ('sum=',sum);

writeln ('umn=',umn);

readln;

end.

Результаты работы внеси в таблицу для заданных x и y.

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.

a в квадрате плюс b в квадрате:

  sqr(a) + sqr(b);