Помогите составить программу в 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