Юра первое место
Боря второе место
Коля третье
Вова четвёртое место
Var s,t:integer;
begin
write ('s='); readln(s);
if (s>-10) and (s<10)
then writeln ('Число однозначное')
else begin
t:=s mod 10;
writeln (abs(t));
end;
end.
111001 это 57
<span>1011011 это 91</span>
На фото решение полное твоего задания
Program n_5;
var
a, b: integer;
begin
writeln('Введите 2 целых числа ');
readln(a);
read(b);
if a > b then
write(b, ' < ', a);
if a < b then
write(a, ' < ', b);
if a = b then
write(a, ' = ', b);
end.