Нужно составить программу в pascal abc - калькулятор. нужно, не была на этой теме не понимаю ничего. огромное заранее)

Program enot;   var p: char;   s,a,b: real; begin  writeln('введите первое число'); readln(a); writeln('что делаем с ним? (+ - * /)'); readln(p); writeln('введите второе число'); readln(b); case p of '+': s: =a+b;   '-': s: =a-b; '*': s: =a*b;   '/': s: =a/b; end; writeln(s);   end.

Basic: dim n as integer, kratnoe, howmuch input "введите n"; n input "введите, чему должны быть кратны числа"; kratnoe for i = 1 to n if i mod kratnoe = 0 then howmuch = howmuch + 1 end if next i print howmuch c#: int n = int.parse(console.; int kratnoe = int.parse(console.; int howmuch = 0; for (i = 0; i < n; i++) {       if (n % kratnoe == 0)     {           howmuch++;     } } console.writeline(howmuch); console.readline();

небольшое наблюдение: если денис может использовать ровно m лопастей, то он может использовать их так, чтобы четырёхлопастных спиннеров было не больше двух. (если их три или больше, то каждые три четырёхлопастных спиннера можно поменять на 4 трёхлопастных).

код (c++)

#include < iostream>

int main() {

    long long m;

    std: : cin > > m;

    for (int f = 0; f < 3 & & f * 4 < = m; f++) {

        if ((m - f * 4) % 3 == 0) {

            std: : cout < < (m - f * 4) / 3 < < " " < < f;

            return 0;

        }

    }

    std: : cout < < "0 0";

    return 0;

}