Снежная королева придумала Каю задачу: собрать льдинки, в которых число граней, выражается не более чем трехзначным числом, делится на каждую из цифр, встречается в записи числа граней этой льдинки. Когда мальчик соберет все такие льдинки, Снежная королева согласится отпустить его домой Каю выбраться из ледяного плена.

клинопись

var s : string; k,f : longint; begin  readln(s);   val(s[1],k,f);   if f< > 0 then writeln('некоректно введена строка')   else if length(s)-1=k then writeln('равно')            else writeln('неравно'); end.

program m;

uses crt;

var a,b,c,sum: integer;

begin

clrscr;

readln(a,b,c);

sum: =a+b+c;

writeln('          ',sum);

readkey;

end.