 Ryfili 
                                                01.07.2019 11:00
                                                
                                                Ryfili 
                                                01.07.2019 11:00
                                             nasten4ik0194 
                                                01.07.2019 11:00
                                                
                                                nasten4ik0194 
                                                01.07.2019 11:00
                                             nikitalandsberg 
                                                01.07.2019 11:00
                                                
                                                nikitalandsberg 
                                                01.07.2019 11:00
                                             007sergey 
                                                17.05.2020 18:50
                                                
                                                007sergey 
                                                17.05.2020 18:50
                                             Xaker567 
                                                25.12.2020 14:01
                                                
                                                Xaker567 
                                                25.12.2020 14:01
                                             anigrigoryan01 
                                                25.12.2020 14:02
                                                
                                                anigrigoryan01 
                                                25.12.2020 14:02
                                             Sdkaj 
                                                25.12.2020 14:02
                                                
                                                Sdkaj 
                                                25.12.2020 14:02
                                             AlinaAlbul 
                                                30.03.2020 20:57
                                                
                                                AlinaAlbul 
                                                30.03.2020 20:57
                                             kaaaarrrr 
                                                30.03.2020 20:57
                                                
                                                kaaaarrrr 
                                                30.03.2020 20:57
                                            
if a>b then c:=a*b
else c:=a/b;
writteln(c);
readln;
End.
Program Ylia ;
var A,B,C: real;
Begin
Readln (a,b);
if a>b then
begin
C:=a*b
else
C:=a/b;
end;
writeln (c);
end.
Вот:)
Ну а так, спррооси у учителя икт, он объяснит