Одна из самых первых и самая простая задача. Для тех, кто конкретно отстал. p.s. нет системных модулей, которые нужны на delphi. не забудьте скопипастить их, когда придёте сдавать.
*******************************************program e;
var
c1,c2,c3,c4:char;

s:integer;
begin
writeln('vvedite c1,c2,c3,c4');
readln(c1,c2,c3,c4);
s:=1000*(ord(c1)-48)+100*(ord(c2)-48)+10*(ord(c3)-48)+(ord(c4)-48);
writeln(s);
end.





Чтобы не видеть здесь видео-рекламу достаточно стать зарегистрированным пользователем.
Чтобы не видеть никакую рекламу на сайте, нужно стать VIP-пользователем.
Это можно сделать совершенно бесплатно. Читайте подробности тут.