var m,n: integer;
begin
write('Введите два числа: ');
readln(m,n);
if abs(m) > abs(n) then writeln(m-100);
<span>end.</span>
1Текстовый файл, содержащий заявления, заголовки, функции и другие данные, на которые ссылается исходный код программы. Может использоваться в C/C++, Pascal, Java, PHP (веб-страницы) и других языках.
Var
s1,s2 : String;
n,i : Integer;
Begin
n:=0;
Readln(s1);
Readln(s2);
For i:=1 to Length(s1) do If Pos(s1[i],s2)=0 then Inc(n);
Writeln(n);
end.