Выполнить задания в Pascal, ответ представить в виде кода Pascal. 1. Ввести М. Вычислить М!
2. Вывести квадраты целых чисел, кратных 3 в диапазоне от 3 до 21

чу-чуть запутался с условием, но вроде-как всё правильно работает :D

import java.util.Scanner;

class Main {

 public static class Phone {

    public int number;

    public String model;

    public int weight;

    String name = "John"; // Имя звонящего

    public void receiveCall() {

      System.out.println("Звонит " + name);

    }

    public void receiveCall(String name, int num) {

      System.out.println("Звонит " + name + "\n" + num);

    }

    public void getNumber() {

      System.out.println(number);

    }

    public void sendMessage(int num1, int num2) {

      System.out.println(num1 + "\n" + num2);

    }

    public Phone(int a, String b, int c) {

      number = a;

      model = b;

      weight = c;

      Phone ph = new Phone(1, "model");

    }

    public Phone(int a, String b) {

      number = a;

      model = b;

    }

    public Phone() {}

 }  

 static int getNum() {

   Scanner num = new Scanner(System.in);

   return num.nextInt();

 }

 static String getStr() {

   Scanner str = new Scanner(System.in);

   return str.nextLine();

 }

 public static void main(String [ ] args) {

     Phone ph1 = new Phone();

     Phone ph2 = new Phone();

     Phone ph3 = new Phone();

     Phone ph = new Phone();

     System.out.print("Введите номер 1-го телефона: ");

     ph1.number = getNum();

     System.out.print("Введите его модель: ");

     ph1.model = getStr();

     System.out.print("Вес: ");

     ph1.weight = getNum();

     System.out.print("Введите номер 2-го телефона: ");

     ph2.number = getNum();

     System.out.print("Введите его модель: ");

     ph2.model = getStr();

     System.out.print("Вес: ");

     ph2.weight = getNum();

     System.out.print("Введите номер 3-го телефона: ");

     ph3.number = getNum();

     System.out.print("Введите его модель: ");

     ph3.model = getStr();

     System.out.print("Вес: ");

     ph3.weight = getNum();

     System.out.println(ph1.number + " " + ph1.model + " " + ph1.weight);

     System.out.println(ph2.number + " " + ph2.model + " " + ph2.weight);

     System.out.println(ph3.number + " " + ph3.model + " " + ph3.weight);

     System.out.println();

     ph1.receiveCall();

     ph1.getNumber();

     System.out.println();

     ph2.receiveCall();

     ph2.getNumber();

     System.out.println();

     ph3.receiveCall();

     ph3.getNumber();

     ph1 = new Phone(ph1.number, ph1.model, ph1.weight);

     ph2 = new Phone(ph2.number, ph2.model);

     ph.receiveCall(ph1.name, ph2.number);

     ph.sendMessage(ph1.number, ph2.number);

 }

}

На протяжении всей истории существования человека он то и дело пытался совершенствовать мир вокруг, чтобы улучшить свою жизнь сделать ее проще и комфортнее. История создания компьютера – это прежде всего стремление человека изобрести устройство для решения задач, непосильных для человеческого разума. И как показывает практика, задача эта исполнена на "ура".

Если вы думаете, что компьютер появился несколько десятилетий назад, то глубоко заблуждаетесь, ведь его история насчитывает несколько столетий. Конечно же, первые предки современного ПК были очень примитивными и даже язык не поворачивается назвать их "компьютерами", но не пройдя всех этих этапов становления он, возможно, не стал таким чудом техники.

Итак, первым созданным компьютером в истории человечества считается машина для подсчетов Блеза Паскаля, возникшая в 1642 году. Это был первый примитивный калькулятор, который изобретателю слагать и вычитать. Изобретение Паскаля считается нулевым этапом в разработке компьютеров и для своего времени это было прогрессивное устройство, ведь ранее никаких попыток механизировать вычисления не было.

Придуманный Паскалем "компьютер" назвали "Паскалина" и представлял он собой ящик с многочисленными шестернями. С колесиков прибор позволял вводить числа от 0 до 9, а в верхней части корпуса, после ввода исходных данных, показывался результат.