Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- program zruti;
- {$APPTYPE CONSOLE}
- uses SysUtils;
- type input=-10000..10000;
- var a,b,p,k:input;
- begin
- { TODO -oUser -cConsole Main : Insert code here }
- readln(a,b,p,k);
- if b>a*p then
- begin
- if a*p>b-(a*p) then
- begin
- if a*p>(b-(a*p))*k then writeln('vymrie');
- if a*p<(b-(a*p))*k then writeln('rastie');
- if a*p=(b-(a*p))*k then writeln('rovnovaha');
- end;
- if a*p<b-(a*p) then
- begin
- if a*p<(b-(a*p))*k then writeln('rastie');
- if a*p>(b-(a*p))*k then writeln('vymrie');
- if a*p=(b-(a*p))*k then writeln('rovnovaha');
- end;
- end;
- if b<a*p then
- begin
- if a*p>(a*p)-b then
- begin
- if a*p>((a*p)-b)*k then writeln('vymrie');
- if a*p<((a*p)-b)*k then writeln('rastie');
- if a*p=((a*p)-b)*k then writeln('rovnovaha');
- end;
- if a*p<(a*p)-b then
- begin
- if a*p<((a*p)-b)*k then writeln('rastie');
- if a*p>((a*p)-b)*k then writeln('vymrie');
- if a*p=((a*p)-b)*k then writeln('rovnovaha');
- end;
- end;
- if a*p=b-(a*p) then writeln('rovnovaha');
- readln;
- end.
Advertisement
Add Comment
Please, Sign In to add comment