Каков результат данной программы?

8. Каков результат данной программы?

Входные данные: D= 10.5 SD= 5.2

Program MALE;

Var D, SD, SUM : real;

Begin

Readln (D,SD);

D:= SD; SD:= D;

SUM:= D + SD;

write (SUM);

end.

1) 15.7 2) 0 3) 5.2 4) 10.4

9. Укажите правильные имена (идентификаторы) переменных:

1) X, Y, prim, XY

2) X, Y, prim, 78DOM

3) 23, Y, prim, DOM78

4) 4.5R, Z, GIL, DF

10. Укажите ошибку в программе?

Var b: integer;

Begin

WRITELN ('Введите количество пассажиров? ');

Readln (b);

if b*50 >= 500 then writeln ('Автобус приедет ');

else writeln ('Автобус не придет ');

end.

1) WRITELN набран заглавными буквами

2) Перед else ставить ; нельзя

3) После then и else не поставили begin и end

4) Неправильно указан тип переменной