var a,b,c:real; begin writeln ('Введите числа'); readln (a,b); c:=a+b; if c>100 do c:=c/2 else c:=c*2; write (c) end.
var a,b,c:real; begin writeln ('Введите числа'); readln (a,b); c:=a+b; if c>100 do c:=c/2 else c:=c*2; write (c) end.