При выполнении на мобильном устройстве укажи правильный порядок строк программы
Расставь строчки программы в правильном порядке
read (a);
var c, a, b: real;
write ('Введите Б');
read (b);
write (a, '+', Ь, '=', с);
write (Введите а');
begin
write ('Вычисление суммы двух чисел');
program summa;
end. .
c:=a+b;

program summa;

var c, a, b: real;

begin

write ('Вычисление суммы двух чисел');

write ('Введите А ');

read (a);

write ('Введите Б ');

read (b);

c:=a+b;

write (a, ' + ',b, ' = ', c);

end.

Объяснение:

Название программы

Описание переменных

Тело программы

program xxx;

  var i, n, s : integer;

begin

    write('введите число n=');

    readln(n);

    s: =0;

    i: =2;

    while i< =n do

        begin

          s: =s+i;

            i: =i+2

        end;

    write('сумма четных чисел =', s);

    readln

end.

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.