Programavimas su Paskaliu. Keletas užduočių, jų sprendimai

Sveiki. Gal yra žmonių, kas moka programuoti Paskaliu ir galėtų padėti dėl keleto uždavinių, jų sprendimų?
Uždavinys 3:

Šitą uždavinį kuo puikiausiai suprantu, bet problema ta, kad pati programa išmeta lentelę su klaida. Kas įdomiausia šitą lentelę man išmeta, kai Paskalio programoje yra parašytas prierašas "longint" (sveikųjų skaičių tipas), o kai jo nėra uždavinys kuo puikiausiai išsisprendžia. Galėčiau to "longint" ir nerašyti, bet užduotis to reikalauja, o gal netinkamoj vietoj jį aš parašau, ir dėl to man meta klaida ;/
Uždavinys 3. Sprendimas:

Uždaviniai 6 ir 7:

Šią užduotį suprantu kaip reikia spręsti, bet kažkodėl man atsakymas nesigauna teisingai. O 7 uždavinio išvis nesuprantu kaip reikia spręsti...
Uždavinys 6. Sprendimas:

del tos 3 uzduotes tau vietoj logint reiktu parasyt Readln(men) ir t.t. o  longint reikia priskirnt tiems kintamesiems (men, d , v) arba kitaip sakant tiesiog vietoj integer parasyk longint.

7 uzduoti gali padaryt naudodamas div mod

ir tiesa del 6 pratimo tai va
program lektuvas;
var A , B, C, V, M : integer;
begin
  WriteLn('Kai lektuvas pakylo valandu ir minuciu buvo');
  Readln(A, B);
  Writeln('Kiek lektuvas praleido ore');
  Readln(C);
  M:= (A * 60 + B + C) mod 60;
  V:= (A * 60 + B + C) div 60;
    if V >= 24
        then V:= V - 24;
  Writeln(V,' ', M);
  Readln;
end.

Dėkui Ernis už paaiškinimus. Beje, gal žinai kaip reiktų išspręsti šį uždavinį?
"Parašykite programą, kuri sukeistų kintamųjų x ir y reikšmes vietomis. Rašant programą negalima
naudoti papildomų kintamųjų. Pasitikrinkite: kai x = 0, y = 5, turi būti spausdinama: Sukeitę x ir y
reikšmes vietomis, gauname: x = 5, y = 0."

program kintamieji;
var x,y:integer;
begin
  ReadLn(x,y);
  x:=x+y;
  y:=x-y;
  x:=x-y;
  WriteLn('x=',x,'  y=',y);
  Readln;
end.

P.S. Cia kartais uzduotis ne is JPM?

Ernisprogram kintamieji;
var x,y:integer;
begin
  ReadLn(x,y);
  x:=x+y;
  y:=x-y;
  x:=x-y;
  WriteLn('x=',x,'  y=',y);
  Readln;
end.

P.S. Cia kartais uzduotis ne is JPM?

JPM - Jaunųjų programuotojų mokykla.

x:=x+y;
y:=x-y;
x:=x-y;

tarkime x= 0, y= 5
1) x := x + y = 0 + 5 = 5;
2)y := x - y = 5 - 5 = 0;
3)x := x - y = 5 -  0 = 5

Erni, kiek pastebėjau gerai gaudaisi programavime. Gal patartum kaip gerai įvaldyti Paskalio kalbą? Turiu parsisiuntęs iš interneto vadovėlį "Šiuolaikiškas žvilgsnis į programavimo pagrindus", bet kaip man pradedančiajam šiek tiek kyla neaiškumų, klausimų. Per šią vasarą užsibrėžiau išmokti Paskalį, nes kiti mokslo metai paskutiniai, taigi kažkaip nesinorėtų visko apsikrauti per 12 kl. O kokią pats literatūrą naudojai, mokindamasis Paskalio kalbos? Gal ką galėtum papildomo patarti pradedančiajam? Sorry, už off-topic'ą.

matrixErni, kiek pastebėjau gerai gaudaisi programavime. Gal patartum kaip gerai įvaldyti Paskalio kalbą? Turiu parsisiuntęs iš interneto vadovėlį "Šiuolaikiškas žvilgsnis į programavimo pagrindus", bet kaip man pradedančiajam šiek tiek kyla neaiškumų, klausimų. Per šią vasarą užsibrėžiau išmokti Paskalį, nes kiti mokslo metai paskutiniai, taigi kažkaip nesinorėtų visko apsikrauti per 12 kl. O kokią pats literatūrą naudojai, mokindamasis Paskalio kalbos? Gal ką galėtum papildomo patarti pradedančiajam? Sorry, už off-topic'ą.

Ernis

matrixErni, kiek pastebėjau gerai gaudaisi programavime. Gal patartum kaip gerai įvaldyti Paskalio kalbą? Turiu parsisiuntęs iš interneto vadovėlį "Šiuolaikiškas žvilgsnis į programavimo pagrindus", bet kaip man pradedančiajam šiek tiek kyla neaiškumų, klausimų. Per šią vasarą užsibrėžiau išmokti Paskalį, nes kiti mokslo metai paskutiniai, taigi kažkaip nesinorėtų visko apsikrauti per 12 kl. O kokią pats literatūrą naudojai, mokindamasis Paskalio kalbos? Gal ką galėtum papildomo patarti pradedančiajam? Sorry, už off-topic'ą.

http://ragaine.su.lt/mokomoji/pascal/ is sitos knygos mokiausi paskali (nors toje knygoje yra nemazai klaidu), pats dabar mokaus  C kalbos ir blem sunkoka, taip pat ir su paskaliu pradzioje buvo man :) tereik tik noro ir uzsispirino ismokti, ir dirbt su paskaliu/programuot,  nes zinok as irgi 12kl pradejau paskali mokytis, tai toks gruzas buvo, galvojau, kad zluges busiu, bet kazkaip po truputi ismokau kazka :)