Var i, f:integer;
begin
f := 1;
for i:= 1 to 6 do begin
f := f*i;
end;
write(f);
end.
Program z7; Var a,b:integer; dx,y,x:real;Begin Write('Введите начало отрезка а = '); readln(a); Write('Введите конец отрезка b = '); readln(b); Write('Введите шаг dx = '); readln(dx); x:=a; writeln(' X Y'); while x<=b do begin y:=x; writeln(x,' ',y); x:=x+dx; end;End.
вот если это перевести в пример получится ¬a∨¬b=f
Program zadacha1;
var d,r:real;
begin
write('введите диаметр окружности');
readln(d);
r:=d/2;
writeln(r);
end.