fps pagalba

Sveiki, gal kas nors galetu parasyti sia programa, buciau labai dekingas

Parašykite programą, kurios pradiniai duomenys būtų sveikųjų skaičių seka, kurios pabaiga žymima skaičiumi „0“. Programa turi išvesti lyginių sekos narių, kurie dalijasi iš 7 be liekanos, ir nelyginių sekos narių, kurie dalijasi iš 5 su liekana, sumas.

Pastaba. Programoje negalima naudoti masyvų.

JPM, 3 skyrius? :)

Visos programos nerasysiu, tik mazdaug aprasysiu kaip turetu buti.

a := 1;

While a <> 0 do

begin

Read (a);

sk := a;

If (sk mod 2 = 0) and ( sk mod 7 = 0) then do

sum1 := sum1 + a;

If .................................................... then do

sum2 := sum2 + a;

end;

Writeln (Sum1, ' ', sum2);

Cia vietoj daugtaskiu reikes paciam sugalvot ka irasyti :) netikrinau bet atrodo turetu veikti.