ich hab ein kleines Problemchen
Code: Alles auswählen
program test8;
{$mode objfpc}{$H+}
uses
{$IFDEF UNIX}{$IFDEF UseCThreads}
cthreads,
{$ENDIF}{$ENDIF}
Classes
{ you can add units after this };
var
astring1, astring2, astring3: string;
i: integer;
begin
for i:=1 to 3 do
begin
readln(astring[i]);
writeln(astring[i]);
end;
end.