ПОМОГИТЕ ПОЖАЛУЙСТА!!!Даны 2 числа.Найти их сумму,если числа равны,и найти их произведение,если числа не равны.Написать блок схему и составить программу на Паскаль.

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