01 семестр / К экзамену-зачёту / Все задачи с экзамена в формате PAS / Alex / VAL

program str_to_number;
uses crt;
var c_str:string;
i_var,i_lit:integer;
begin
clrscr;
gotoxy (1,5);
writeln('‚ўҐ¤ЁвҐ, Ї®¦ «г©бв , 楫®Ґ зЁб«®');
repeat
gotoxy (2,7);
clreol;
readln (c_str);
val (c_str,i_var,i_lit);
writeln;
if i_lit>0 then writeln ('HҐЄ®ааҐЄв­ п Ё­д®а¬ жЁп ў ',i_lit,'-®© Ї®§ЁжЁЁ');
until i_lit = 0;
writeln;
writeln (i_var);
readln;
end.