Составить алгоритм трех чисел a,b,c вывода суммы первого и второго и разности второго и третьего.

var a, b, c, s, r:integer;
begin
writeln('Введите 3 числа');
read(a, b, c);
s:=a+b;
r:=b-c;
writeln('Сумма 1-го и 2-го числа:',s);
writeln('Разность второго и третьего:',r);
end.