var kasutaja, vastus, vast:string;
lehed, Juta, Mari, Jaak,i:integer;
begin
Juta:=0;
Mari:=0;
Jaak:=0;
repeat
writeln('Kes paljundust kasutas?');
readln(kasutaja);
writeln('Palju sa paljundasid?');
readln(lehed);
if (kasutaja='Juta') then Juta:=Juta+lehed
else if (kasutaja='Mari') then Mari:=Mari+lehed
else Jaak:=Jaak+lehed;
writeln('Kas tahad teada palju keegi on paljundanud?(j/e)');
readln(vast);
if vast='j' then
writeln ('Juta paljundas ',Juta, ' lehte. Mari paljundas ',Mari,
' lehte. Jaak paljundas ',Jaak, ' lehte.');
writeln ('Kas tahad programmiga t”” läpetada?(j/e)');
readln(vastus);
until (vastus='j');

end.