Объясните что значат эти строчки! вот задания

1. Дано натуральное число: -найти первую и последнюю цифры числа; -верно ли, что сумма цифр данного числа равна A( A вводится с клавиатуры).
2.Найти все трехзначные числа, которые при делении на 2 дают остаток 1, при делении на 3 - остаток 2, при делении на 4 - остаток 3, а само число делится на 5.
3.Дано натуральное число, приписать к нему такое же.

я задания нашел! а строчки надо училке тоже объяснить

ЗАДАЧА 3

program num;
Var x, m1, m2,y, i, k :integer;
begin
write('Введите число ');
readln(x);

m1:=x; m2:=x; {копии числа}

while m1 <> 0 do
begin
m1 := m1 div 10;
k:=k+1 {количество цифр в числе}
end;

for i:=1 to k do
x:=x*10;

y:=x+m2;
writeln('Результат=',y)
end.

ЗАДАЧА 1

Program Pr1;
var a:integer;
Begin
readln(a);
writeln('Posl ',a mod 10);
while a div 10 <>0 do
a:=a div 10;
writeln('Perv ',a);
end.

ЗАДАЧА 2

Var i:integer;
Begin
For i:=100 to 999 do
if (i mod 2 = 1)and(i mod 3 = 2)and(i mod 4 = 3)and(i mod 5 = 0) then write(i:5);
readln;
End.

ЗАДАЧА 1

Var s,a,i: Integer;
n: Longint;
BEGIN
Write('Введите число: ');
Readln(n);
Write('Введите A: ');
Readln(a);
While n>0 do
begin
i:=n mod 10;
n:=n div 10;
s:=s+i;
end;
If a=s Then Writeln('Сумма цифр числа равна числу A')
Else Writeln('Сумма цифр числа НЕ равна числу A')
END.