Pagalbos su fps

Sudarykite programą, spausdinančią visus triženklius skaičius, kurių kraštinių skaitmenų suma lygi viduriniojo skaitmens kvadratui.

program lalala;
 var i:integer;
begin
 for i:=100 to 999 do
  if i div 100 + i mod 10 =sqr(i mod 100 div 10) then writeln(i);
 Readln;
end.

!!!Nespėjau, Tom greičiau padarė :D

Štai padariau:

program trizenklis;
  var i, pirmas, antras, trecias:integer;
begin
  for i:= 100 to 999 do
  begin
	 pirmas:= i div 100;
	 antras:= i mod 10;
	 trecias:= (i div 10) mod 10;
		if (pirmas + antras) = (trecias * trecias)
		   then writeln(i);
  end;
Readln;
Readln;
end.

Dekui :D