Ребят задача ** языке Pascal...Дано целое число, если оно двузначное, то умножить ** 2, в...

Question

Ребят задача на языке Pascal...
Дано целое число, если оно двузначное, то умножить на 2, в противном случае вычесть 10.

Answer 1

Program pr;
uses crt;

Var a;

Begin
Writeln('Введите число');
readln(a);
if (a>9) and (a<100) <br>then a:=a*2
else a:=a-10;
Writeln(a);
readln;
end.