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

Program asd;
Uses crt;
Var x,a:integer;
begin
For x:=1 to 10 do
begin
a:=sqr(sqrt(x)+sqrt(x));
writeln (a);
end;
end.

2.
Program asd;
Uses crt;
Var x:integer;
Begin
For x:=20 to 50 do
if x mod 10=6
then writeln (x);
end.