Блок схема для программыprogram Project2; {$APPTYPE CONSOLE} uses SysUtils; Var...

Question

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

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.

Answer 1

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.

---