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.

Тогда так