Составьте программку, определяющую, является ли заключительная цифра введенного целого числа

Какой язык?

paskal

Ок, на данный момент постараюсь написать

буду ожидать

буду ожидать

буду ожидать

буду ожидать

буду ждать

буду ожидать

Program pr1;
var a:integer;
begin
writeln('Введите число');
readln(a);
if a mod 2 = 0 then
writeln('Это число чётное')
else
writeln('Это нечётное число');
end.

program pr2;
var i, sum:integer;
begin
sum:=0;
i:=2;
while (ilt;=13) do
begin
writeln(i);
if (i mod 2 = 0) then
begin
sum:=sum+i;
end;
i:=i+1;
end;
writeln('Сумма чётных чисел: ', sum);
end.