Думаю ответ под номером 1.
Зачем нам нужно записывать Russia? Там есть условие для этой программы?
Var x,s:integer;
begin
readln(x);readln(s);
while x<>5 do begin
s:=x;
x:=x+1;
s:=s+x;
end;
writeln(s);writeln(x);
end.
Если будут неправильно то попросите меня исправить
Смотря в каком, но чаще всего фигуры, 3D эффект, кисть, линии и т. д.
Клавиатура, мышь, сканер, микрофон, джойстик.
Var s,k,m:integer;
begin
write('s = ');
readln(s);
k:=s div 800;
m:=s mod 800;
writeln('Кругов: ',k,' и ещё метров: ',m);
end.
Пример:
s = 5020
Кругов: 6 и ещё метров: 220