Pa lepo ti je xenon rekao, vrtis while petlju sve dok je uslov zadovoljen (tj sve dok uneseni znak razlicit od '*'). Za uslov ulaska u while petlju ne moras da poredis sta je uneto preko tastature, zar nije lakse da to radis u nekom if-u u samoj petlji, a da se while 'vrti' preko neke boolean promenljive. Ovako nesto:
Code:
var c: char;
x: boolean;
begin
{ TODO -oUser -cConsole Main : Insert code here }
x:= true;
while x do
begin
read(c);
if (c<>'*') then write(c, c)
else x:= false;
end;
end.