program getResult;varD, result1, result2: Integer;beginwriteln('Enter number D:');readln(D);
result1 := D + D;writeln('2D = ', result1);
result2 := result1 + result1 + result1 + result1 + D;writeln('4D = ', result2);
result1 := result2 + result2 + result2 + result2 + result2;writeln('20D = ', result1);end.
program getResult;
var
D, result1, result2: Integer;
begin
writeln('Enter number D:');
readln(D);
result1 := D + D;
writeln('2D = ', result1);
result2 := result1 + result1 + result1 + result1 + D;
writeln('4D = ', result2);
result1 := result2 + result2 + result2 + result2 + result2;
writeln('20D = ', result1);
end.