Задано число от 0 до 99, если число двузначное, то вывести первую цифру числа, если однозначное, то само число.
Паскаль​

var

p,r,i,k,o,l,u,h,a:integer;

s:string;

begin

writeln ('INP');  

readln (k);  / вводим цифру

if (k >= 10) then begin  // проверка на двухзначность

Str(k,s);  // перевод в строку

writeln (s[1]);  // вывод

end

else writeln (k);  // если не больше 10

readln

end.

Объяснение: