Turbo Pascal, домашнее задание в школе

[popkorm]

1) Квадрат трехзначного числа оканчивается 3мя цифтрами, которые и составляют это число. Написать программу поиска таких чисел.
2) Найти сумму цифр целого числа больших 5ти.
3) Даны натуральные числа m и n, найти такие натур. числа p и q не имеющие общих делителей, что (p/q = m/n)

[Naper214]

for a:= 100 to 999 do
begin
if a=sqr(a) mod 1000 then
x[a-99]:=a;
end;

[Naper214]

это первая....не уверен точно....

[alex_fcsm]

Сообщение от popkorm

3) Даны натуральные числа m и n, найти такие натур. числа p и q не имеющие общих делителей, что (p/q = m/n)

Решение в лоб:делить числа m и n до тех пор пока не встретим одно из них

uses crt;
var m,n,p,q,i:integer;

begin
clrscr;
writeln('Input m');
readln(m);
writeln('Input n');
readln(n);
i:=2;p:=m;q:=n;
repeat
if (p mod i =0) and (q mod i=0)
  then begin
        q:=q div i;
        p:=p div i;
       end
  else inc(i);
until (i=n) or (i=m);
writeln;
writeln(p);
writeln(q);
end.