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

Question

ПОМОГИТЕ ПОЖАЛУЙСТА!!!

Даны 2 числа.Найти их сумму,если числа равны,и найти их произведение,если числа не равны.Написать блок схему и составить программу на Паскаль.

Answer 1

Var
    a, b: integer;

begin
    readln(a, b);
    if a = b then
        writeln(a + b)
    else 
        writeln(a * b);
end.

Answer 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.