Program user;uses crt;var a, b: real;beginwriteln('введи число с клавиатуры');readln(a);If a>10 then b:=a*2 else b:=a-5;end.
Program user;
uses crt;
var a, b: real;
begin
writeln('введи число с клавиатуры');
readln(a);
If a>10 then b:=a*2 else b:=a-5;
end.