Пожалуйста посчитайте По икт тут паскаль я лично ничего не знаю

// какое задание, такой и ))
Program n1;
const pi=3.14;
var a,b: string;
i,d,c,sum: integer;
begin
writeln('введите 2 слова');
readln(a);
readln(b);
c:=0;
if a='ночь' then writeln('спокойной ночи,',b);
sum:=0;
for i:=1 to 10 do sum:=sum+i;
while c<50 do c:=c+1;
writeln('Значение d=',d);
end.