Очень срочно.....помогите пожалуйста паскальОпределить,можно ли сделать круглую заготовку...

Question

Очень срочно.....помогите пожалуйста паскаль
Определить,можно ли сделать круглую заготовку с заданным радиусом R из квадратного листа фанеры с заданной стороной А. решить ее надо с помощью оператора выбора case

Answer 1

Var
  a, r : Integer;
begin
  Write('a = ');
  Readln(a);

  Write('r = ');
  Readln(r); 

  case a div r of 
    0..1: Writeln('no');    
    else  Writeln('yes');
  end;

  Readln;
end.