Ввести а и б и вывести квадраты и кубы чисел от а до б. программа паскаль ​

ответ:

var i,a,b: integer;

begin

read(a,b);

for i: =a to b do begin

writeln(i*i);

writeln(i*i*i);

end;

end.

папирусы хранили в виде свитков, сворачивая длинную папирусную ленту, склеенную из отдельных листов, в трубку. 

var kol,a,b,c: longint;

begin

  read(a,b,c);

  if a< 0 then kol: =kol+1;

  if b< 0 then kol: =kol+1;

  if c< 0 then kol: =kol+1;

  write(kol);

end.