Составить алгоритм разности двух чисел

Program algo;
var a,b,c:integer;
begin
writeln ('Введите 2 числа!');
readln (a,b);
c:=a-b;
writeln ('Резултат!',c);
end.

Удачи!Надеюсь