составить блок-схему очень надо!​

// PascalABC.Net 3.0, сборка 1052
var
  s1, s2: string;
  a, b: real;
  err: integer;

begin
  Writeln('Введи первый катет: ');Readln(s1);
  Val(s1, a, err);
  if err <> 0 then Writeln('Ошибка при попытке получить числовое значение')
  else begin
    Writeln('Введи второй катет: ');Readln(s2);
    Val(s2, b, err);
    if err <> 0 then Writeln('Ошибка при попытке получить числовое значение')
    else begin
      Writeln('Гипотенуза равна ', sqrt(a * a + b * b));
      Writeln('Площадь равна ', 0.5 * a * b)
    end
  end
end.

Код в Turbo Pascal:
USES Graph,CRT;
VAR x,y,dx,dy,Device,Mode,i: Integer; 
BEGIN 
   Device:=0; 
   InitGraph(Device,Mode,''); 
   x:=10; y:=10; 
   dx:=1; dy:=1; 
   i:=1; 
Repeat     
   SetColor(Cyan);     
   Circle(x,y,10);     
   SetFillStyle(1,3);     
   FloodFill(x,y,Cyan);     
   Delay(10);     
   SetColor(Black);     
   Circle(x,y,10);     
   SetFillStyle(1,0);     
   FloodFill(x,y,Black);     
   x:=x+dx; y:=y+dy;     
if (x>300) OR (y>200) then                           
                                   begin                           
                                      x:=10;                           
                                      y:=10;                           
                                      i:=i+1;                           
                                   end;

  until i>5;
END.