Написать программу, используя цикл for.
1. Найдите количество трехзначных чисел, кратных 3 и оканчивающихся на 4.
2. Вычислить сумму .
3. Найти четырехзначное число, равное квадрату числа, выраженного двумя последними цифрами этого четырехзначного числа.

1) var  i,k,n: byte;begin  writeln('Трехзначные цифры, кратные 3 и оканчивающиеся на 4');  for i:=100 to 999 do  begin  if (i mod 3=0) and (i mod 10=4)    then write(i,' ');  end;  readln;end.3) Число 5776