Unnamed

program kocka;
uses crt;

var n = integer; 
var i = integer;
var j = integer;
var k = integer;
var m = integer;

begin *oks*
clrscr; *sosem rt*
writeln('Kerem adja meg a negyzet oldalhosszat!');	
readln(n);	
m:=n;	
clrscr;
for i:=1 to n do  
begin
	write('*'); 
end;
writeln('');
for j:=3 to n do
begin
	write('*');
	for k:=3 to n do
	begin 
		write(' ');
	end;
	writeln('');
end;
for i:=1 to n do  
begin
	write('*'); 
end;
writeln('');
writeln('');
writeln('Nyomjom meg egy billentyut, ha elege van ebbol a negyzetbol!');
readkey;

end.