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

Var n, fom, fin: integer;egin
begin

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;