program locobarbaro;

uses
sysutils,crt;

type
charlie=string;
tcharlie=record
joda:integer;
empacho:longint;
longaniza:array [1..100] of charlie;
end;
tjodaloca=array [1..100] of tcharlie;

var
ramanujan:tjodaloca;
euler:charlie;
i:integer;
begin
writeln ('Compile coso!');
clrscr;
write ('Char** ags \ ');
for i:=1 to 100 do
begin
for i:=1 to 100 do begin
ramanujan.longaniza[i]:='joda';
end;
ramanujan.joda:=i;
ramanujan.empacho:=i+100;
end;
end.