расширение от имени отделяется точкой
42 символа включая пробелы и точку в конце умножить на 16 бит будет 672 бит, если разделить на 8 то будет 84 байт
Program calculator;
var a, b, c: integer;
begin
writeln('Введи 2 числа: ');
readln(a,b);
c:=a+b;
writeln(c);
end.
Var i,a,b,r:integer;
begin
read(a,b);
r:=1;
for i:=a to b do
r*=i;
writeln(r);
<span>end.</span>