Play audio slide show -- Keyboard shortcut: 'x'  Back to notes -- Keyboard shortcut: 'u'              Play sound for this slide -- Keyboard shortcut: 'y'  Lecture 3 - slide 20 : 39
Program 2
 

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.