Question

Дано натуральное числоY.Увеличит его на 18, если число двухзначное. по Паскалю решить задачу

Answer 1

Uses crt;
var a:integer;
begin
writeln('Введите число');
read(a);
if Length(inttostr(a))=2 then a:=a+18;
writeln(a);
end.