Ребята срочно) помогите пожалуйста с инфой. Написать программы: Построить таблицу квадратов целых чисел от 1 до 10. Построить таблицу квадратов целых четных чисел от 2 до 20.

1. vari:integer;beginfor i:=1 to 10 dobeginwriteln (i, sqr(i));readln;end.2. vari:integer;beginfor i:=2 to 20 dobeginif sqr(i) div 2 = 0 thenwrite (i, ' = 'sqr(i) );end;readln;end.