На языке Паскаль сделайте, пожалуйста.
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.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
