Компьютер был создан очень давно и щас таких компьютеров очень много.А использую я его для того что б общаться,договариваться с друзьями о встрече или какой нибудь поездке.В двадцать первом веке компьютер нужен каждому человеку,за исключением пожилых бабушек и дедушек,и бывает так что и они его используют.Потому что сейчас как раньше люди не гуляют,а раньше компьютеров не было,веселились как могли.Каждый человек использует его по разному кто для работы,а кто то для учебы.Ну а мне он нужен конечно же для учебы и в будущем понадобится и для работы.
var
a: string;
begin
writeln('"Дверь открыта?" -(Да или Нет)');
readln(a);
if (a='Да') or (a='да') then
writeln('Тарелки Шрёдингера разбиты!')
else
if (a='Нет') or (a='нет') then
writeln('Тарелки Шрёдингера целы!');
end.
Var a,s:integer;
begin
readln(a);
while (a<>0) do begin
s+=a mod 10;
a:=a div 10;
end;
writeln(s);
<span>end.</span>
У вас начало неправильное должно быть первой строкой program ; и не правильно'vari'вместо'var' цикл работать не будет так как не верный указан параметр