Вкажіть тип величини «назва дня тижня» у середовищі Lazarus

2гбайта=2000000байт

2000000байт/400байт=5000текстовых файлов

у меня получилось, что первое число 954, второе 459, а третье 495. т.е. получился пример : 954-459=495

var s: string;

begin s : = 'видеоадаптер'; writeln(s); writeln(s[3] + s[2]+ s[5] + s[3]); writeln(s[12] + s[6] + s[3] + s[2] + s[5]); writeln(s[9] + s[6] + s[12] + s[10] + s[11] + s[12]); end.

var a,res: integer;

begin

writeln('введите число');

readln(a);

res: =sqr(a);

writeln('квадрат числа,'a', равен,'res',');

readln;

end.