var a:integer;
begin
readln (a);
if (a>0) then
repeat
a:=a-3;
until(a<0);
if (b<0) then
repeat
a:=a+2;
until (a>70);
writeln (a);
end.
CLS
INPUT "N = ", N
INPUT "A = ", A
S = 0
FOR i = 0 TO N
P = A
FOR j = 1 TO i
P = P * (A + j)
NEXT j
S = S + 1 / P
NEXT i
PRINT ; "S = "; S
END
10 человек ничем не заняты,
11 занимаются только спортом
Uses
Crt;
Var
a,b:integer;
Begin
Writeln('Введите ваш рост в сантиметрах, округлив до целого значения');
Readln(a);
b:=a-100;
Writeln('Для человека ростом ', a,' см идеальный вес ', b,' кг');
End.