Безусловный цикл - цикл, выход из которого в программе не предусмотрен.
Цикл с предусловием - цикл, условие которого проверяется перед выполнением тела цикла. С постусловием - проверяется после.
Один из самых простых 1221 (7+3*2*2+3)=43
Можно ещё использовать оператор выбора case
Program pr;
uses crt;
Var k:integer;
Begin
Writeln('Введите k');
readln(k);
if (k>=1) and (k<=5) then
Begin
case k of
1: Writeln('Плохо');
2: Writeln('Неудовлетворительно');
3: Writeln('удовлетворительно');
4: Writeln('Хорошо');
5: Writeln('Отлично');
end;
end
else Writeln('Ошибка');
readln;
end.
Uses crt;
var i,s:integer;
begin
s:=0;
for i:=1 to 10 do
s:=s+i*i;
writeln(s);
end.