Написать программу определения стоимости разговора с учетом скидки 30 %, предоставляемой по субботам и 35% - предоставляемой по воскресеньям.

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.

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