var a,sum,i:integer;
begin
for i:=1 to 5 do
begin
readln (a);
if (a mod 4=0) and (a mod 10=6) then sum:=sum+a;
end;
writeln (sum);
readln;
end.
Упрощение выражений - в прилагаемом файле
Center font blue
Алгоритмы
font
align i
i
ul
li
li
li
li
ul
Program n_1;
var x, y: real;
begin
readln(x);
if (x=6) or (x=2) then writeln ('Нет корней')
else begin
y:=(x*x-7*x+10)/(x*x-8*x+12);
writeln(y:0:10);
end;
end.