Question

Напишите программу ввода чисел а,b с клавиатуры.если a=b,то вывести на экран сумму a и b,иначе вывести на экран b-a (используя функцию)паскаль

Answer 1

Var c, d, rez:integer;
function k9 (a,b:integer):integer;
begin
if a=b then rez:=a+b else rez:=b-a;k9:=rez
end;
begin
write ('Введите a - ');readln(c);
write ('Введите b - ');readln(d);
writeln(k9(c ,d));
end.

Тогда так