Программа рабочая, скорее всего ты просто вводил элементы в строчку, а у тебя стоит в чтении переход на новую строку(окончание LN), и паскаль просто не видел никакие числа, кроме первого.
И очень муторный и непонятный код, я переписал немножко:
var
col, a: integer;
begin
col := 0;Read(a);
while a <> 0 do
begin
read(a);
if (a mod 3 = 0) and (a mod 2 = 0) then
col := col + 1;
end;
writeln('количество ', col);
end.
Пример:
6 12 9 36 0
количество 3
var x,y:real;
begin
writeln('Vvedite x');
readln(x);
if x<1 then y:=abs(x) else y:=x*1/2;
writeln(y);
end.
#include <iostream>
using namespace std;
int main()
{
unsigned long long int a;
cin >> a;
cout << "Числу " << a << " кратны числа: ";
for(int i = 1; i <= 5; i++){
int b=a*i;
cout<<b<<" ";
}
cout<<"...";
}
Пример:
10
Числу 10 кратны числа: 10 20 30 40 50 ...
(512*1024/(640*480))*2 = 3.4 - Три страницы экрана при палитре из 16-ти цветов
(512*1024/(640*480)) =1.7 - Одна страница экрана при палитре из 256 цветов