Program Stoimost;

var a,b,s,c :integer;

begin

      writeln('Введите стоимость за минуту разговора ');

      read(b );

      writeln('Введите количество минут ');

      read(s);

      writeln('Если покупка была совершена в субботу, то введите цифру 1,если в воскресенье,  то введите цифру 2, а если в другие дни, то 0 ');

      read(a);

      if a:=1 then 

      c:= b*s*0,7;

      if a:=2 then 

      c:=b*s*0,65;

      if a:=2 then  

      c:=b*s;

      write(c);

end. 

скорее всего не правильно, но попробуй