Подпрограммы. Процедуры и функции. Паскаль

[Ann2807]

Здравствуйте, помогите, пожалуйста ввести функцию/подпрограмму в задачу. Первый раз делаю.

2.Квадраты некоторых трехзначных чисел оканчиваются тремя цифрами, которые как раз и составляют исходные числа. Написать программу поиска таких чисел.
program number;
var
M,t:longint;

begin

For M:=100 to 999 do
begin
t:=M*M mod 100;
if t=M then Writeln(M);
end

end.