Var x,y: Integer;
begin
writeln('Введите x');
readln(x);
if x<0 then y:=x+x else
if x>=0 then y:=100*x;
writeln(y);
end.
Var f1:text;
st:string;
begin
write ('введите имя файла ');
readln(f1);
reset (f1); { открыть файл для чтения }
while not eof (f1) do { пока не конец файла f1}
begin
readln (f1, st); {читаем строку из файла f1 }
writeln(st); { выводим на экран }
end;
close (f1); { закрыть файл для чтения}
end .
Троян, но эта информация не точная, но всё же.
35 -4 - принимают участие две стороны: обмен
24 -2 - процессор компьютеру нужен, но графику обсчитывает видеокарта
25 -1 - только графические редакторы относятся программам, остальное железо.