Допустим, что a и b входят в этот промежуток.
program test;
var a, b, sum, i: integer;
begin
write('Enter two integers:');
readln(a, b);
sum:=0;
for i:=a to b do
sum:=sum+i;
write('Sum = ', sum);
readln;
end.
Создаёшь txt файл,вписываешь в него нужные наборы выполнения команд и меняешь расширение на bat
1.Девочка и мальчик ухаживают за растениями.
2.Девочка ухаживает за цветами и мальчик ей помогает или мальчик ухаживает за цветами и девочка ей помогает.
Берешь один файл-смотришь размер
берешь другой файл-смотришь размер
сравниваешь
пишешь-какой файл больше
var a,b : real;
begin
read(a,b);
if (a<0) and (b<0) then Writeln(sqrt(a/b)) else
Writeln(a*3,' ',b+7);
end.