Составляй сам(а). Ты учишься или кто?
Цикл, в котором условие записано после тела цикла, выполнится как минимум 1 раз, а потом начнет проверять условие цикла. Цикл с предусловием может не выполниться ни разу, тк условие проверяется сразу. Цикл с предусловием используется когда у нас есть четкие границы выполнения
Var
x,z,c:Integer;
begin
readln(x,z);
if x < 5 then
c:= x + z;
if (5 <= x) and (x <= 10) then
c:=2*x-3*z;
if x > 10 then
c:= 25*x+z*25;
writeln(c);
end.