3D форматта алтыбұрыш модельін салыңыз.

артефакт,инстинкт,антрацит,оригинал.

program e7;

var x: integer;

begin

writeln('vvedite znachenie gradusnoi meri ugla');

readln(x);

if a=180 then writeln('razvernutii') else writeln('ne razvernutii');

readln;

end.

если вы работаете в школе на программе freepascal, то перед "end" можно "readln" не писать. если же вы работаете на программе turbopascal, "readln" перед "end" обязательно нужно писать.

var i: integer; s: real;

begin s : = 0; for i : = 1 to 100 do s : = s + i * i; writeln(s: 7: 0); end.

program divisors;

var

n,i: integer;

begin

readln(n);

for i: =n downto 1 do if n mod i = 0 then write(i,' ');

end.