Помогите пожалуйста)Заранее спасибо!!Напишите программку, которая решает последующую

Помогите пожалуйста)Заблаговременно спасибо!!
Напишите программку, которая решает последующую задачу
Оплата Веба в школе состоит из 2-ух частей: 100 долларов в месяц за доступ и 5
баксов в месяц за поддержку школьного веб-сайта. Платеж можно делать независимо за
любое количество месяцев за доступ и за поддержку сайта. Напишите программу, которая
дозволяла бы вводить раздельно количество оплачиваемых месяцев для доступа и
помощи и выводила бы сумму оплаты.

Задать свой вопрос
2 ответа
Var m1,m2,s:integer;
begin
write('количество месяцев за доступ к веб: ');
readln(m1);
write('количество месяцев за поддержку школьного веб-сайта: ');
readln(m2);
s:=m1*100+m2*5;
writeln ('Сумма оплаты = ',s);
end.

Пример:
количество месяцев за доступ к интернет: 5
количество месяцев за поддержку школьного сайта: 4
Сумма оплаты = 520
Эээ типа так??
program z1;
var m:integer;
d,p:real;
begin
writeln('Введите кол-во месяцев, за которые будет произведена оплата:');
readln(m);
d:=m*100;
p:=5*m;
writeln (d,' долларов - за доступ и ',p,' баксов - за поддержку сайта');
end.
Большунов Ванек
спасибо вроде так)
Екатерина Рынская
отлично
Larisa Tarapat
Выручил)
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт