ПОМОГИТЕ ПОЖАЛУЙСТА! Даны 2 числа

Program 2chisla; uses crt; var a,b,c: integer; beginwriteln ('Введите первое число'); readln (a); writeln ('Введите второе число'); readln (b); if a=b thenbegin c: =a+b; writeln ('Сумма чисел: ',c); end; else Beginc: =a*b; writeln ('Произведение чисел: ',c); end; readkey; end.