//PascalABC.Net 3.2
begin
var x:=readinteger ('Введите x: ');
write ('y=', sqr(1-x*x+5*sqr(x*x)) );
end.
Ответ:
program abc;
var s:string;
begin
readLn(s);
s:=IntToStr((StrToInt(s[2])+StrToInt(s[3])) mod 10)+IntToStr(abs(StrToInt(s[1])-StrToInt(s[3])))+IntToStr(StrToInt(s[2]) mod StrToInt(s[1]));
writeLn(s);
end.
Объяснение:
1) Заходишь в "Мой компьютер".
2) Нажимаешь правую кнопку мыши
3) Свойства
4) ОЗУ-твоя оперативная память