Question

На языке Паскаль сделайте, пожалуйста.

Answer 1

program q;
var a,b,x:integer;
beginwriteln('введите a');
readln(a);
x:=a*2;
if (x<10) then
x:=x-5
else
x:=x+6;
writeln(x);
end.

Answer 2

допёр только первую