Program Ylia ;var A,B,C: real;BeginReadln (a,b);if a>b thenbeginC:=a*belseC:=a/b;end;writeln (c);end.
Вот:)
Ну а так, спррооси у учителя икт, он объяснит