Визуальная!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
10 12 14 16 18 20
Получается шесть
Var n,i:integer;
begin
read(n);
i:=1;
repeat
begin
if i mod 3=0 then
writeln(i);
end;
i:=i+1;
until n<i
end.
Program anton4nk;
uses crt;
var x, y : string;
begin
clrscr;
writeln('Введите имя и фамилию.');
readln(x,y);
writeln(x);
end.
Если я правильно конечно понял задачу. Если нет, отпиши.