11klases pascal uzdavinukai, pagalbos sauksmas!

,

Taigi sveiki visi, nezinau kodel 11kl pasiimiau as ta sumauta informatikos A lygy kai jau seniai zinojau jog nesiseka man programuoti, na bet dabar man reikia kaskaip atlikti pusmacio iskaita ir gal nors padeite kas gaudotes tokiuose dalykuose? :)

http://www.failai.lt...kaitai1.rar.htm

Parašiau į PM

1)

if x <= 0 then
y := x + 1;
else if x <= 1 then 
y := 1;
else 
y := -x + 2; 

2)

a = 4;
b = 5;

3)

if (a > b) and (a <> b) then 
begin
 a -= b;
 b += 1;
 a -= 1;
end 
else if a <> b then
begin
 b -= a;
 a += 1;
 b -= 1;
end;

4)

if a < b and a < c then
writeln('maziausias a');
if b < a and b < c ten
writeln('maziausias b');
if c < a and c < b then 
writeln('maziausias c');

5)

if x > 0 and y > 0 then writeln('pirmas'); 
if x < 0 and y > 0 then writeln('antras');
if x < 0 and y < 0 then writeln('trecias');
if x > 0 and y < 0 then writeln('ketvirtas')