Решение на C. Переведи на синтаксис паскаля :)

#include

int pearCount;

int friendsCount;

int main(int argc, const char * argv[]) {

printf("Количество груш: ");

scanf("%i", &pearCount);

printf("Количество подруг: ");

scanf("%i", &friendsCount);

if (pearCount % friendsCount != 0) {

printf("Количество груш '%i' Количество подруг '%i': нет\n", pearCount, friendsCount);

} else {

printf("Количество груш '%i' Количество подруг '%i': да\n", pearCount, friendsCount);

}

return 0;

}