Question

Паскаль
Найти разность между первыми двумя и послед. двумя цифрами заданного четырехзначного числа.

Answer 1

program delta;
var
a:longint;
begin
readln(a);
writeln(a div 100-a mod 100)
end.

Answer 2

Спасибо большое^^