Pascal(по самому простому нужно бы)

var money:integer;          min:real;          s:string; begin      write('Стоимость одной минуты разговора = ');      readln(money);      write('Длительность разговора = ');      readln(min);      write('Какой сегодня день?  ');      readln(s);      if (s = 'суббота') or (s = 'Суббота') or (s = 'Воскресенье') or (s = 'воскресенье')   then     writeln('Стоимость разговора = ',money * min*0.8)        else writeln('Стоимость разговора = ',money*min); end.