Написать программу...

Написать программу на языке Paskal Заданы диаметр круга D и сторона квадрата А. Определить, поместится ли круг в квадрате. Задачу проверитьпри

 

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.