Прикладные программы для выполнения на компьютере конкретных

Это конечно же приложения

Для початку визначаємо площу острова на якому мешкають робінзони: plostr: =k*k; . друга дія, що повинна виконуватись – наявність вільного місця на острові vsostr: =plostr-s*p, і на останок, якщо вільне місце буде то розраховуємо кількість робінзонів яка б могла розміститися на острові у випадку аварії корабля поблизу острова: kp: =vsostr div p. визначаємо типи змінних. так як за умовою і сторона острова та площі мають бути цілими числами більшими за нуль але не обмеженими по величині виберемо для них тип integer, кількість людей, що проживають на острові також число ціле і воно може бути більше ніж 255(тип byte) то залишається обрати також тип integer. в результаті ми також отримуємо числа цілі але можливо там будуть і від’ємні значення тому тип змінних визначаємо як integer. var k, p, s, plostr, vsostr, kp: integer; beginwrite (‘введіть кількість проживаючих на острові робінзонів: ’); readln(p); write (‘введіть довжину острова у метрах: ’); readln(k); write (‘введіть площу, яка визначена законом для проживання одного робінзона: ’); readln(s); plostr: =k*k; vsostr: =plostr-s*p; if  vsostr < 0  then  write(‘права робінзонів порушені, так як площі острова не достатньо’)elsebeginif  vostr=0  then  write (‘на острові місця вистачить тільки для тих робінзонів, які там вже проживають’)else  beginkp: =vsostr div p; if  kp> 0  then  write(‘ на острові можуть бути поселені ще ’,kp,’ робінзон(ів)’)else  write(‘на острові місця вистачить тільки для тих робінзонів, які там вже проживають ’); end; end; readln; end.