очень важно!! помогите пожалуйста
задача по информатике
в паскале
*с клавиатуры вводится натуральное число n из промежутка от 0 до 100. Найти и вывести на экран все простые числа от 0 до n*

ой "чётным" числом

решу)

var a,b,c,d,e,l,p:integer;beginwriteln('введите числа a,b,c,d,e');readln(a,b,c,d,e);l:=a*a+b*b+c*c+d*d+e*e;if l mod 2 = 0 then begin p:=(l*l*l )/5 ; writeln (p);end;else begin z:=(l*10)-1000 ;writeln(z);end;end.

вот так попробуй,в синтаксисе могла быть ошибка, мне просто убегать надо....

спасибо огромное