ради бога упростите логические выражения

в египетском письме было более 750 иероглифов, не было гласных. иероглифы обозначали целые слоги и звуки.

в не указан   шаг изменения x , допустим он равен 1

var

x,y: real;

begin

x: =1;

while x< =10 do

begin

y: =1/x-5;

writeln(y: 8: 2);

x: =x+1;

end;

end.

var a,a12,a1,a2,a3,s: integer; begin readln(a); a1: =a div 100; a12: =a mod 100; a2: =a12 div 10; a3: =a12 mod 10; s: =a1+a2+a3; writeln(s); end.

a1-первое число трехзначного числа, a2-второе,a3-третье, a12-вторые два числа

1)мобильный телефон, монитор, калькулятор, все эвм