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

все просто, что бы определить какой цифрой закончится число, надо взять последнюю цифру этого числа и возвести ее в квадрат. затем, если число двузначное, то ответом будет послденяя цифра поученного числа или если число однозначное, то оно и будет ответом.  var a: integer;   begin  read(a);   write(sqr(a) mod 10);   end.

Объяснение:

Напишите программу, которая в последовательности целых чисел определяет, каких чисел больше - чётных или оканчивающихся на 3 - и на сколько. Программа получает на вход целые числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 - признак окончания ввода, не входит в последовательность). Количество чисел не превышает 1000. Введённые числа по модулю не превышают 30000. Программа должна вывести сообщение и одно число: каких чисел больше - чётных или оканчивающихся на 3 - на сколько, а если количество чисел одинаково, то вывести это количество.

Пример работы программы:

Входные данные:

182

13

12

8

0

Выходные данные

Чётных больше на 2 числа

0

//будем считать, что четные по значению

const

  n = 10;

var

  a: array[1..n] of integer;

  i, sum, count: integer;

begin

  sum : = 0;

  count : = 0;

  randomize;

  for i : = 1 to n do

  begin

    a[i] : = random(10);

    write(a[i], ' ');

    if a[i] mod 2 = 0 then

    begin

      sum : = sum + a[i];

      count : = count + 1

    end

  end;

 

  writeln;

  write('среднее арифметическое ' +  

        'четных чисел: ', sum / count)

end.