Uma luz para 2 questões

[zarpz]

Eu preciso de 2 um programa que peça dois números e pare somente em cada caso a seguir, e usando os dois comandos REPEAT e WHILE

1-Quando o primeiro for maior que o segundo (REPEAT)

2-Quando o primeiro for o triplo do segundo (WHILE)

alguem poderia me dar uma luz como fazer isso

a primeira questão consegui fazer fico assim:

Program pz;
var a,b:real;
 Begin
 repeat
 writeln('digite o primeiro numero: ');
 read(a);
 writeln('digite o segundo numero: ');
 read(;
 until (a>;
 if (a> then
 begin
 write('o numero ',a:2:2,' é maior que ',b:2:2);
 end;

 End.

mais se eu trocar do modo repeat para o while como ficaria? isso q n to conseguindo fazer

consegui fazer os 2 exercicios

consegui fazer os exercicios agora tenho uma outra duvida, somente quando eu digitar que o primeiro numero é zero e o segundo é zero tb, existe algo do tipo por exemplo:

if (a=0),(b=0) then begin
write('a e b são zero');

ou algo do gênero?

[Simon Viegas]

consegui fazer os exercicios agora tenho uma outra duvida, somente quando eu digitar que o primeiro numero é zero e o segundo é zero tb, existe algo do tipo por exemplo:

if (a=0),(b=0) then begin
write('a e b são zero');

ou algo do gênero?

Sim, você pode usar o operador lógico and. Ex.:

  if (a=0) [COLOR="Red"]and[/COLOR] (b=0) then
    begin

    end

Abraços