Question

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

Answer 1

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.