ПОМОГИТЕ ПОЖАЛУЙСТА!!!Даны 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.
