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.