Program asdas;
Uses crt;
var a,b:integer;
begin
writeln ('Введите стаж');
readln (a);
if a<=5
then b:=130
else if a>0
then b:=180;
end.
Program asdas;
Uses crt;
var a,b:integer;
begin
writeln ('Введите стаж');
readln (a);
if a<=5
then b:=130
else if a>0
then b:=180;
end.