Введите с клавиатуры два целых числа. выведите на экран сумму чисел, разницу между числами, квадрат разности между числами, частное и остаток от деления первого числа на второе

Var a, b: integer; begin readln(a, b); writeln('сумма чисел:   ', a+b); writeln('разница между числами:   ', abs(a-b)); writeln('квадрат разности: ', sqr(a-b)); writeln('частное:   ', a div b); writeln('остаток от деления первого на второе:   ', a mod b); end.

1.

var n: integer; begin  cls;   for n: =1 to 10 do begin    write('n=',sqr(n)+5,' ');   end; end.

 

решить на паскале?