Помогнете с Турбо Паскала

[go71n]

хорица от инф. технологии тоя турбо паскал ме измъчи буквално ... госпожата ми по инф каза, че ако и напиша програмата която ми даде 6 за годината ... та моля ви помогнете ми да хвана тъпия отличен ... ако можете ми напишете кво трябва да напиша във паскала зада направа по долните 3 програми ... ( мисля, че няква подобна ше ми даде )

1ва..
A - 5 , 8 , 14 , 54 , 33
B - 3 , 6 , 16 , 45 , 42
C - 5 , 8 , 16 , 54 , 42

трябва да сравня двете числа и по голямото да отиде в масив C

2ра
A - 6 , 5 , 21 , 53 , 32
B - 0 , 1 , 1 , 1 , 0

трябва при вавеждане на чилсо от клавиатурата ако чилсото е четно да пише 0, ако е не четно 1ца

3тата задача по касно ще я напиша да видим дали някой въобще ще ми помогне с тези 2 ;(

[EroSennin]

http://prikachi.com/users/erosennin/61i.jpg

почти и 2те задачи само малко съм ги изменил като в масива д записвам дали елементите на ц са четни вместо да проверява дали елементите на а са четни

[Genetix]

Program asd;

var x:integer;

BEGIN
writeln ('Vyvedete 0 za krai na vyvejdaneto');
readln(x);

while x <> 0 do begin
writeln(x mod 2);
readln(x);
end;

end.