СРОЧНО!!! Пожалуйста помогииите. Даны цифры а, б. Если а>б вычислить сложение, в противном случае вычислить умножение.

Program Chisla;Uses CRT;Var a, b, S, D : real; Begin CLRSCR; Writeln( ‘ введите первое число a = ’ ); Readln(a); Writeln( ‘ введите второе число b= ’ ); Readln(b);If a > b thenBeginS:=a+b;writeln( ‘ сумма чисел S= ’ , S:10:2);end;else beginD:=a*b;writeln(‘ произведение чисел D= ’ , D:10:2 );end;repeat until keypressed;END.