Постройте отрицания высказываний. 1. Миша не может пойти в кино.
2. Соня любит рисовать.
3. Все планеты не имеют атмосферы.
4. В сентябре не бывает дождей.
5. Солнце светит ярко.
6. Некоторые птицы улетаю на юг. ​

var x,y,nod,nok: longint;

begin

read(x,y);

a: =x; b: =y;

while (a> 0) and (b> 0) do

if a> b then a: =a mod b

else b: =b mod a;

nod: =a+b;

nok: =(x div nod)*y;

write(nok);

end;

в не указан   шаг изменения x , допустим он равен 1

var

x,y: real;

begin

x: =1;

while x< =10 do

begin

y: =1/x-5;

writeln(y: 8: 2);

x: =x+1;

end;

end.