Множества

[surf135]

Пусть вводится последовательность символов длиной не более 4. Если все вводимые символы цифры,то выполните преобразование данной последовательности в целое число.

[Grag]

А язычок то какой???

[surf135]

На Языке Паскаль

[Stilet]

var q,w:integer;
begin
 val('1234',q,w);
 if w=0 then write('Это не число') else write(q);
 readln;
end.