Помогите пожалуйста)по информатике Pascal abc
1)Составьте программу , которая выводит на экран число X,которое изменяется от 1 до 10 и значения выражения(√x+√x)^2
2)Составьте программу , которая выводит на экран все числа от 20 до 50,оканчивающиеся на цифру 6.

Program asd;Uses crt;Var x,a:integer;beginFor x:=1 to 10 dobegina:=sqr(sqrt(x)+sqrt(x));writeln (a);end;end.2.Program asd;Uses crt;Var x:integer;BeginFor x:=20 to 50 doif x mod 10=6then writeln (x);end.