Работа с системой программирования на языке Паскаль.

Составьте программу для вывода на экран простых чисел, определяемых по формуле PRCHISLO = n^2-n+41 , где n = 1, 2, 3, ..., 40. Вывод чисел реализуйте в строку, через пробел.

fom замени prchuslo, не заметил

уже подругому сделала

var PRCHISLO, n: integer;begin for n:=1 to 40 do begin PRCHISLO:=sqr(n)-n+41; write (' ',PRCHISLO); end;end.

Var n, fom, fin: integer;eginbegin n := StrToInt(Edit 1. Text) ;fom := Power(n, 2)-n+41;fin := IntToStr(fom) ;if (n >= 1) or (n <= 40) then Edit 2. Text := fin;else Edit 2. Text := 'Значение не подоходит' ;end;