Определить последнюю цифру заданного целого числа в pascal

неверно

Напиши как верно будет

var s,t:integer;beginwrite  ('s='); readln(s);if (s>-10) and (s<10) then writeln ('Число однозначное') else begin   t:=s mod 10;   writeln (abs(t));   end;  end.