program uspory;
uses crt;
var vklad, urok, zostatok: real;

begin
clrscr;
 writeln ('zadaj vklad: ');
 readln (vklad);
 write('zadaj urok: ');
 readln (urok);
 zostatok:=vklad+(vklad*urok)/100;
 writeln;
 writeln ('na ucte na konci roka bude: ' ,zostatok:1:2,' korun');
 readln;
end.