Определите, какие значения принимают выражения, если А = 1, В = 0, С = 0

program nm12;

var a, d : integer;

begin

    writeln (' vvedite diametr kruga i storony kvadrata ');

    readln (d);

    readln (a);

    if d< =a then writeln (' krug pomestits9 v kvadrate ')

              else writeln (' krug ne pomestits9 v kvadrate ');

    readln;

end.

революция 1917 года и великая отечественная война (1941-1945)

64000*16=1024000 б=128000 б=125 кб

program strangle;

var

a: integer;

begin

readln(a);

if a = 180 then writeln('yes') else writeln('no');

end;