Lecture 3 - slide 20 : 39

program it2;

var x: boolean;
    svar: char;
    positivtSvar: boolean;

begin
  repeat
    writeln('Kan du forstå denne do løkke? ');
    readln(svar);
  until (svar = 'j') or (svar = 'n');
  positivtSvar := (svar = 'j');
  
  write('Svaret var '); 
  if positivtSvar then writeln('ja') else writeln('nej')

end.