Bucles en pascal

[kalma05]

Hola

Se me pide esto, pero soy nueva con la programacio y no se, una ayuda?

Modifique este código, que es uno de los ejemplos usados en el tema, para que en lugar de usar un bucle repeat-until se use un bucle while-do. Recuerde que la ejecución deberá ser idéntica.

repeat
write('Introduzca el primer operando: ');
readln(a);
write('Introduzca el segundo operando: ');
readln(b);
writeln(' Opciones: S(sumar), R(restar), M(multiplicar), D(dividir)');
readln(opcion);
case (opcion) of
'S','s' : res:= a+b;
'R','r' : res:= a-b;
'M','m' : res:= a*b;
'D','d' : res:= a/b;
end;
writeln(' El resultado es ', res);
write(' Terminar (S/N)?: ');
readln(opcion);
until ((opcion ='S') or (opcion ='s')) ;

gracias