Составить программу в Pascal, используя цикл с счетчиком for 1. Напечатать квадраты…

var i, b: integer; begin write ('b='); readln (b); for i: =10 to b do writeln (i, '*', i, '=', i*i); readln; end. //вторая задачаvar a, b, i: integer; begin write ('a='); readln (a); write ('b='); readln (b); for i: =a+1 to b — 1 do write (i, '); readln; end.