Cрочно, программа на цикл с параметром в Паскале.

Для заданного натурального числа n рассчитать сумму и сравнить ее со значением у: 1+2+3 + ... + n y = (n+1) / 2

program chisla;

var summa, n, y, i:longint;

begin

writeln ('daite N') ; readln (n) ;

for i:=1 to n do summa:=summa+i;

{etot tikl dayot summu dlya nomera N, primer: n=5, summa=1+2+3+4+5=15; }

y: = (n+1) / 2;

if y>summa then writeln ('Y > summa N ') else

if y=summa then writeln ('Y = summa N') else writeln ('Y < summa') ;

readln;

end.

ya tak ponyal zadachu, esli ne tak, proshu popraviti. spasibo