Вот, пришлось вспомнить былые деньки... Эх, ностальгия... Старость х)
Ответ 1.
Остальные - это (2) файловые, (3) загрузочные и (4) вирус ОС Linux
Program test;
Var
a:string;
Begin
Write('Введите ваше имя: ');
Readln(a);
Writeln(' Привет ', a);
End.
Var i,j:integer;
begin
readln(i);
j=(i*i)+(i*3)+1;
writeln(j);
<span>end.</span>
Скажи а картинки к заданию нет
ето может бить если она нашла или взяла ещо одно яблоко