СРОЧНО ХЕЛП!!!!!Напишите программу для решение задачи с клавиатуры вводится целое число...

Question

СРОЧНО ХЕЛП!!!!!Напишите программу для решение задачи с клавиатуры вводится целое число от 1 до 99 если число2-значное ,то вывести кол-во десятков в числе,иначе вывести введенное число увеличенное на 1 с помощью dif и mod Paskal

Answer 1

Var a: integer;
begin
readln(a);
if (a div 10 = 0) then
writeln(a+1)
else
writeln(a div 10);
end.