program ap;
uses crt;
const n=40;
var s,i:integer;
x,y:real;
procedure s1 (k:integer);
var q,x:array[1..n] of integer;
s,i:integer;
begin for i:=1 to k do BEGIN x[i]:=random(60);
write(' ',x[i]);
end ;
writeln ;
end;
begin clrscr;
writeln('введите t<40');
writeln ;
readln(s) ;
writeln ;
s1(s);
end.