Составить программу в paskal abc лицензионный сбор взимается в следующих размерах к минимальной месячной оплате труда в зависимости от действия лицензии: до 1 года – 30%, от 1 до 2 лет – 40%, от 2 до 3 – 50%, от 3 до 4 лет – 60%, от 4 до 5 – 70%. в случае утери лицензии сбор 20% от первоначального сбора. составьте программу определения лицензионного сбора.

Var   z, s: real;   n, p: integer; begin   write('введите размер оплаты труда: ');   readln(z);   write('лицензия первичная (1) или повторная (2)? ');   readln(p);   writeln('на сколько лет выдается лицензия? ');   writeln('0 - до года, 1 - 1-2 года, 2 - 2-3 года,');   write('3 - 3-4 года, 4 - 4-5 лет: ');   readln(n);   case n of       0: s : = 0.3 * z;       1: s : = 0.4 * z;       2: s : = 0.5 * z;       3: s : = 0.6 * z;       4: s : = 0.7 * z;   else s : = 1e9   end;   if p = 2 then s : = 0.2 * s;   writeln('сумма лицензионного сбора составит ', s: 0: 2) end. тестовое решение: введите размер оплаты труда: 26400 лицензия первичная (1) или повторная (2)? 1 на сколько лет выдается лицензия? 0 - до года, 1 - 1-2 года, 2 - 2-3 года, 3 - 3-4 года, 4 - 4-5 лет: 2 сумма лицензионного сбора составит 13200.00

#include < iostream> int main() { float x, y, z; setlocale (lc_all, "russian"); std: : cout < < "введите день:   "; std: : cin > > x; std: : cout < < "введите месяц:   "; std: : cin > > y; std: : cout < < "введите год:   "; std: : cin > > z; std: : cout < < "следующий день: " < < x+1 < < "." < < y < < "." < < z < < std: : endl; system("pause"); }