Program w TP

Słuchajcie mam problem ze zrobieniem zadania w TP otóż:
program bedzie liczyl sume i róznice dwóch liczb tak długo aż zrezygnujesz z pracy poprzez wprowadzenia liczby 0.
Niby prosty ale mam w nim użyc pętli WHILE tylko ciągle mi sie nie udaje. Badzo proszę o pomoc!!

P.S.: Trzeba w nim użyć pętli WHILE.

O Boże... w czym ty masz problem?
Wczytaj dane
While nie wpisano 0
wpisz sumę i różnicę
wczytaj dane
koniec while
koniec programu.
Prawda, że skomplikowane?

To tylko tak dla jaj . Nawet nie próbowałem tego kompilować

// warunki na kontynuację
var i1,i2:integer;
begin 
  i1:=1;
  i2:=1;
  while((i1<>0)and(i2<>0))do
    begin
      readln(i1);
      if(i1<>0)then
        begin
          readln(i2);
          if(i2<>0)then writeln('suma: ',i1+i2,' różnica: ',i1-i2)
        end
    end
end.

// albo

// warunki na zakończenie
var i1,i2:integer;
begin 
  while(true)do
    begin
      readln(i1);
      if(i1=0)then break; // lub exit, lub halt, whatever
      readln(i2);
      if(i2=0)then break; 
      writeln('suma: ',i1+i2,' różnica: ',i1-i2)
    end
end.

Sasik wielkie dzieki!!(ironia) twoja pomoc na nic mi się przydała.

Flabra- dzieki, ale chodzi mi o coś mniej skomplikowanego. To da się zrobić łątwiej tylko nie wiem jak.

Jejku, przecież napisałem, patrz:

var l1,l2: Integer;
begin
  readln(l1,l2); //wczytaj dane
  while (l1<>0) and (l2<>0) do begin //while nie wpisano 0
    writeln('suma:',l1+l2,#13#10,'różnica:',l1-l2); //wypisz sumę i różnicę, może tu być błąd, bo pascala nie wiele znam :P
    readln(l1,l2); //wczytaj dane
  end;
end.

Jest w tym tylko jeden problem, zawsze trzeba podać dwie liczby, żeby program zakończył działanie :/ Jeśli chcesz inaczej, musisz użyć if-ów.
Pewno nie podobało Ci się, że tak napisałem, bo nie umieściłem kodu, od flabry dostałeś... eh Czy to nie jest przyjemność jeśli ktos tylko podpowie jak do czegoś dojść, a ty sam dzięki tej podopowiedzi do tego dojdziesz? Wtedy masz chcociaż satysfakcję...

// tam BYŁ drobny błąd, pozwoliłem sobie poprawić - ŁF