Написать программу которая сравнивает два значения введенных с клавиатуры ,если 1 значение больше 2 ,то они складываются

Program chisla;Uses CRT;Var a, b, c : real;Begin CLRSCR; Write ( ‘ vvedite znachenie pervogo chisla a= ‘); Readln (a); Write ( ‘ vvedite znachenie vtorogo chisla b= ‘); Readln (b); If a > b then Beginc:= a+b;Writeln ( ‘ chislo a boljshe chisla b i a+b= ‘ , c:10:2);End;If a <= b thenBegin c:=a*b;Writeln ( ‘ chislo b boljshe chisla a i a*b= ‘ , c:10:2 );End;Repeat until keypressed;End.