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