Программа в паскале ))

[alien608]

Уважаемые товарищи программеры .. я учусь на программиста..пол года ..иногда бывает, что непонятно как написать ту или иную программу, помогите пожалуйста составить второе задание ...
Вот ссылка http://ipicture.ru/Gallery/Viewfull/12444358.html ..на задание

заранее спс !!

[maladoy]

program func;
uses crt;
var a:array[1..4] of integer;
     i:integer;
begin
clrscr;
for  i:=1 to 4 do begin
writeln('vvedite ',i,' chislo');
readln(a[i]);end;
if (a[2]*a[4]) mod 2=0 then writeln ('proizvedenie 2 i 4 =',a[2]*a[4]);
if  (a[1]+a[3])>150 then writeln ('summa 1 i 3= ',a[1]+a[3]);
for i:=1 to 4 do
write(a[i],'  ');
readln;
end.

[alien608]

maladoy ..спс благодарю !!