Задача 4. Створіть програму, яка визначить відстань яку проїхав потяг, якщо потяг щогодини збільшував швидкість на 5 км.
Ввести початкову швидкість потяга.
Вивести відстань
За який час потяг їхатиме зі швидкістю 300 км/год?
Вивести відстань потяга за час
Якщо потяг досягне швидкості менше, ніж за 50 годин, вивести на екран червоне вікно
Інакше зелене вікно
Розмір та заголовок на Ваш вибір
До ть будь ласка)
Begin
writeln('Введите день месяца');
readln(b);
writeln('Введите номер месяца');
Readln(a);
Case a of
1: writeln(b,' янавря');
2: writeln(b,' февраля');
3: writeln(b,' марта ');
4: writeln(b,' апреля ');
5: writeln(b,' мая');
6: writeln(b,' июня ');
7: writeln(b,' июля');
8: writeln(b,' августа');
9: writeln(b,' сентября');
10: writeln(b,' октября');
11: writeln(b,' ноября');
12: writeln(b,' декабря');
else writeln('Месяца №', a,'нет');
end;
end.