Что у меня не верно?

Даны четыре вещественных числа. Найти сумму тех из них, которые больше десяти.

var a, b, c, d, S:real;

begin

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

readln (a, b, c, d) ;

S:=0;

if (a>10) then S:=S+a;

if (b>10) then S:=S+b;

if (c>10) then S:=S+c;

if (d>10) then S:=S+d

else writeln (S) ;

end.

Question

Корней

7 февраля, 23:29

+3

Ответы (1)

Знаете ответ на вопрос?

Готя · Answer 1

Поставьте точку с запятой после S:=S+d и уберите else перед writeln (S) ;