Help make 2 pascal programs

1.Ar random function to get two numbers from 1-6 and 1.no 2.10-20 and to display numbers from the first to 2 and the number of squares.

2.Ar random function to get two numbers from 2-5 and 1.no 2.15-20 and to display numbers from the first to 2 and the number kvadrātu.un the square root.

What do you have so far?

nothing

programm one
user crt;
x,y:integer;
begin
randomize
x:random.......

help me make programm

uses crt;
var x1,x2,i:integer;
begin
    randomize;
    x1:=random(6)+1; //(1-6)
    x2:=random(11)+10; //(10-20)
    for i:=x1 to x2 do
     write(i,' ');
    writeln;
    //
    //Squares
    for i:=x1 to x2 do
     if trunc(sqrt(i))=sqrt(i) then write(i,' ');
end.