Паскаль Найти разность между первыми двумя и послед. двумя цифрами заданного четырехзначного числа.
Program delta; var a:longint; begin readln(a); writeln(a div 100-a mod 100) end.
Спасибо большое^^