Program Pr1;
uses crt;
var stroka,tmp:string;
i:integer;
Begin
clrscr;
readln(stroka);
for i:=1 to length(stroka) do if stroka[i]=' ' then tmp:=copy(stroka,1,i-1);
writeln(tmp);
end.
Открываете Компьютер и там должно Дисковод DVD-RW (E:)
На него нажимаем, и там будет вся информация которая есть в диске.
Begin
for var i:=1 to 9 do begin
for var j:=1 to 9 do
write(i*j:4);
writeln;
end;
<span>end.</span>