Ультрадыбыс датчигі не үшін қажет? Ультрадыбыс датчигін не себепті роботқа орнатамыз?​

аборигеном                                                                                                                                                                                                                             

(1*2**5)-6-7=1

если я парвильно понял , то вотvar x,y : integer;

begin

readln(x);

if   x> =0 then y: =1

esle y: = 0;

writeln(y);  

end. 

var i: integer; begin  for i: = 2 to 14 do      writeln(i*i); end.