Помогите пожалуйста! срочно надо!!!

Question

Помогите пожалуйста! срочно надо!!!

---

Answer 1

Program ABC;
uses crt;
label  goback;
Var A,B,K:real;
Begin
goback:
A:=23;
B:=5;
K:=0;
if A>=B thenIf A=B then writeln (K) else a:=a-b
else begin B:=B-A;
K:=K+1;
goto goback;
end;
end.

Comments

Program ABC;

---

Program ABC;
uses crt;
label goback;
Var A,B,K:real;
Begin
goback:
A:=23;
B:=5;
K:=0;
if A>=B then
If A=B then writeln (K) else a:=a-b
else begin B:=B-A;
K:=K+1;
goto goback;
end;
end.