Function gcd(n, m: integer): integer;begin while n <> m do if n > m then n := n - m else m := m - n; gcd := n;end;var i, j, k, n: integer;begin readln(n); k := 0; for i := 1 to n do begin if nod(i, n) = 1 then write(i, ' '); end;end.
var
a: real;
k: byte;
begin
writeln('1 - l okp.');
writeln('2 - r okp.');
writeln('3 - d okp.');
readln(k);
readln(a);
write('S = ');
case k of
1: writeln(sqr(a) / (4 * Pi):0:2);
2: writeln(Pi * sqr(a):0:2);
3: writeln(Pi * sqr(a / 2):0:2);
else writeln('?');
end;
end.
1) Выйдешь на рабочий стол
2) Нажимаешь правую сторону мышки
3) Выбираешь создать
4) Выбираешь что нужно
5) Даешь имя