Паскаль! Помогите пожалуйста!в...

Паскаль! Помогите пожалуйста!в бублике 1 дырка, в кренделе 2. на сколько меньше дырок в А бубликах,чем в В кренделях. ( А и В - случайные числа)

 

Program p1;
var A,B:integer;
begin
writeln('Enter A and B');
read(A,B);
Writeln(2*B-A);
end.

В данном решении А и Б вводятся с клавиатуры

или

program p1;
var A,B:integer;
begin
randomize;
A:=random(100);
writeln('A=',A);
B:=random(100);
writeln('B=',B);
writeln(2*B-A);
end.
В данном случае вместо А и Б берутся случайные числа от 0 до 100 (можете поменять строчку random(100) для других диапозонов)