Дано: writeln (s:6:2); Если s=114,22069, то на экране появится:

1)деловая бумага; 2)подтверждает факт или право

-всех планов

-планов , на которых ровно 4 хода

- планов на которых есть ход к коту

-планов на которых не 4 хода

-планов на которых нет ходов к коту

-планов на которых 4 хода и есть ход к коту

- планов на которых 4 хода и нет ходов к коту

на пересечении круга и квадрата - мауси и котауси

в квадрате - джек

в круге - ник

в прямоугольнике - пухлик

ответ на вопрос: план джека

uses graphabc,crt; const t=500;

beginsetwindowsize (600, 600); setpencolor (clblack); setbrushcolor (clblack); rectangle (45, 45, 105, 225 ); setpencolor (clred); setbrushcolor (clred); circle (75, 75, 25); setpencolor (clyellow); setbrushcolor (clyellow); circle (75, 130, 25); setpencolor (clgreen); setbrushcolor (clgreen); circle (75, 185, 25); setpencolor (clblack); setbrushcolor (clblack); rectangle (70, 225, 80, 300); setbrushcolor (cldkgray); circle (75, 130, 25); setbrushcolor (clgreen); circle (75, 185, 25);

repeatsetbrushcolor (cldkgray); circle (75, 185, 25); setbrushcolor (clred); circle (75, 75, 25); delay(t); setbrushcolor (cldkgray); circle (75, 75, 25); setbrushcolor (clyellow); circle (75, 130, 25); delay(t); setbrushcolor (cldkgray); circle (75, 130, 25); setbrushcolor (clgreen); circle (75, 185, 25); delay(t); until keypressed;

end.

var

a,b: integer;

begin

write('введите в одной строке два целых числа и нажмите < enter> ');

readln(a,b);

if a=b then writeln('числа равны')

else 

if a> b then writeln(a,' больше')

else writeln(b,' больше')

end.