Цикл с параметром <span>используется, если известно начальное значение переменной, конечное значение и шаг ее изменения. цикл с параметром организует выполнение одного или нескольких операторов заданное, заранее известное, число раз</span>
Var
r: longint;
begin
readln (r);
if (r mod 5) = 0 then write ('Кратно') else write ('Не кратно');
end.
Program example;var a, b, c:integer;function gero(a,b,c:integer):double;var p:double;begin p:=(a+b+c)/2; gero:=p*(p-a)*(p-b)*(p-c);end;begin write('Введите A'); readln(a); write('Введите B '); readln(b); write('Введите C'); readln(c); writeln(gero(a,b,c)); readkey;end.