Reiketu pagalbos su FPS

Sveiki,

Gal galetu kas nors pagelbet, parasydami programa su paskaliu?

Uzdavinys: Duoti keturi (4) skaiciai a,b,c,d. Patikrinti ar antri skaitmenys yra vienodi. (Cia turetu buti su while, if, div, mod. manyciau). Jei galetumet parasykit man i PM.

Nera galinciu?

Klaida iveliau, patikrinti ar antri skaiciu skaitmenys yra vienodi tai tie skaiciai gali buti dvizenkliai ar trizenkliai.

Na, turiu kelias laisvas minutes, tai užmesiu akį, už kelių minučių parašysiu kas gavosi ;)

Na, niekaip neįsirašiau paskalio, tai padariau ant wordo, tai gali būti klaidelių sintaxės, tai jeigu tokių ras tai parašyk, pataisysim:

program skaiciai;

var a, b, c, d : longint;

begin

WriteLn('Iveskite keturis skaicius');

Readln(a);

Readln(b);

Readln©;

Readln(d);

While a>100 do begin

a:=a div 10

end;

a:=a mod 10;

While b>100 do begin

b:=b div 10

end;

b:=b mod 10;

While c>100 do begin

c:=c div 10

end;

c:=c mod 10;

While d>100 do begin

d:=d div 10

end;

d:=d mod 10;

if (a=b) and (a=c) and (a=d) then

Writeln('skaitmenys yra vienodi');

Readln;

end.