Написать программу определения стоимости разговора с учетом скидки…

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. Скорее всего не правильно, но попробуй