блок схема для программы

program Project2;
 {$APPTYPE CONSOLE}


 

uses

 
SysUtils;


 

Var a,b,c:integer;


Function Nod(a,b:integer):integer;


Begin


    While a<>b do

   
  if a>b then a:=a-b

   
   else b:=b-a;

 
    Nod:=a;


End;


Begin

  
  write('Vvedite a,b,c: ');readln(a,b,c);


    writeln('Nod(a,b,c): ',Nod(Nod(a,b),c));

 
   readln;
End.

var  a, b, c: integer;begin  write('Vvedite a,b,c: ');  readln(a, b, c);    while a <> b do    if a > b then a := a - b    else b := b - a;    while a <> c do    if a > c then a  := a - c    else c := c - a;    writeln('Nod(a,b,c): ', a);  readln;end.